home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 July / 64er_Magazin_88-07_1988_Markt__Technik_de_Side_B.d64 / how many prints (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  572b  |  20 lines
  1. 0 rem *** anzahl der anschlaege ***
  2. 1 rem *** fuer nl-10 megadriver ***
  3. 2 rem *** in programm schreiben ***
  4. 3 :
  5. 4 rem dieses prg (w) by florian mueller
  6. 5 rem megadriver (w) by thomas beigel
  7. 6 :
  8. 10 print"diskette mit installiertem treiber ein- legen und <return> druecken"
  9. 20 geta$:ifa$<>chr$(13) then 20
  10. 30 open1,8,15,"i"
  11. 40 open2,8,2,"#"
  12. 50 print#1,"u1 2 0 17 0"
  13. 60 print#1,"b-p 2 41"
  14. 70 get#2,a$
  15. 80 printchr$(147)"anzahl der druckvorgaenge pro zeile:";asc(a$)
  16. 90 input "neue anzahl";a
  17. 100 if a<>int(a) or a<1 or a>255 then 90
  18. 110 print#1,"b-p 2 41":print#2,chr$(a);:print#1,"u2 2 0 17 0"
  19. 120 close2:input#1,a,a$,b,c:printa;a$;b;c:close1
  20.